home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / installer / Create-Make-Disks1 < prev    next >
Encoding:
Text File  |  1994-02-22  |  3.4 KB  |  129 lines
  1. /* */
  2. total = 653
  3. disk  = 1
  4.  
  5. CALL Setup
  6. say ';;;                                                    ;'total
  7. total = total + Handle('ar:include_13.lha'       disk)
  8. total = total + Handle('ar:include_20.lha'       disk)
  9. total = total + Handle('ar:extended_tools.lha'   disk)
  10. CALL NextDisk
  11.  
  12. total = total + Handle('ar:include_common.lha'   disk)
  13. total = total + Handle('ar:miscellaneous.lha'    disk)
  14. total = total + Handle('ar:dice_linklibs.lha'    disk)
  15. total = total + Handle('ar:include_30.lha'       disk)
  16. CALL NextDisk
  17.  
  18. total = total + Handle('ar:online_help2.lha'     disk)
  19. total = total + Handle('ar:library_source.lha'   disk)
  20. total = total + Handle('ar:source_control.lha'   disk)
  21. total = total + Handle('ar:rom_tools.lha'        disk)
  22. total = total + Handle('ar:amiga12_linklibs.lha' disk)
  23. CALL NextDisk
  24.  
  25. total = total + Handle('ar:debugger.lha'         disk)
  26. total = total + Handle('ar:mmu_tools.lha'        disk)
  27. total = total + Handle('ar:example_source.lha'   disk)
  28. total = total + Handle('ar:amiga30_linklibs.lha' disk)
  29. CALL NextDisk
  30.  
  31. total = total + Handle('ar:online_help1.lha'     disk)
  32. total = total + Handle('ar:basic_tools.lha'      disk)
  33. total = total + Handle('ar:freeware.lha'         disk)
  34. total = total + Handle('ar:ttx_config.lha'       disk)
  35. total = total + Handle('ar:dme_config.lha'       disk)
  36. total = total + Handle('ar:ced_config.lha'       disk)
  37. total = total + Handle('ar:ame_config.lha'       disk)
  38. CALL NextDisk
  39. CALL Cleanup
  40.  
  41. EXIT
  42.  
  43. Handle: PROCEDURE
  44.    PARSE ARG name disk
  45.    st     = STATEF(name)
  46.    size   = WORD(st, 2)
  47.    blocks = WORD(st, 3)
  48.    res    = CalcBlocks(size)
  49.    CALL Report(name disk blocks res)
  50.    RETURN res
  51.  
  52. CalcBlocks: PROCEDURE
  53.    ARG SIZE
  54.    blocks = trunc((size + 487)/488)
  55.    res =  blocks+trunc((blocks+71)/72)
  56.    RETURN res
  57.  
  58. Report: PROCEDURE
  59.    PARSE ARG NAME DISK BLK RES
  60.    SAY 'copy   ' LEFT(name,30) 'rd'disk':    ;'LEFT(blk,4) '==' LEFT(res,4)
  61.    RETURN
  62.  
  63. NextDisk: PROCEDURE EXPOSE total disk
  64.    room = TRUNC((total + 5 + 5)*100/1758)
  65.    SAY ';;;TOTAL SIZE=.........................................'total'+5='total+5 room'%'
  66.    SAY 'INFO RD'disk':'
  67.    SAY ''
  68.    IF total > 1752 THEN
  69.       DO
  70.          SAY '"***Disk' disk 'will not fit'
  71.       END
  72.    disk = disk + 1
  73.    total = 0
  74.    IF disk <= 5 THEN
  75.       DO
  76.          SAY ';'
  77.          SAY ';       Disk' disk
  78.          SAY ';'
  79.       END
  80.    RETURN
  81.  
  82. Cleanup: PROCEDURE
  83.    SAY ';'
  84.    SAY ';       Cleanup.  Fix protections, etc.'
  85.    SAY ';'
  86.    SAY 'protect rd1:#? r all quiet'
  87.    SAY 'setdate rd1:#? 01-jan-94 12:00 all'
  88.    SAY ''
  89.    SAY 'protect rd2:#? r all quiet'
  90.    SAY 'setdate rd2:#? 01-jan-94 12:00 all'
  91.    SAY ''
  92.    SAY 'protect rd3:#? r all quiet'
  93.    SAY 'setdate rd3:#? 01-jan-94 12:00 all'
  94.    SAY ''
  95.    SAY 'protect rd4:#? r all quiet'
  96.    SAY 'setdate rd4:#? 01-jan-94 12:00 all'
  97.    SAY ''
  98.    SAY 'protect rd5:#? r all quiet'
  99.    SAY 'setdate rd5:#? 01-jan-94 12:00 all'
  100.    SAY ''
  101.    SAY 'protect rd1:bin/#? re all quiet'
  102.    SAY 'protect rd1:l/#?   re all quiet'
  103.    SAY 'protect rd1:Install-DICE r'
  104.    SAY 'protect rd1:Installer re'
  105.    SAY ''
  106.    SAY 'set echo off'
  107.    SAY ''
  108.    RETURN
  109.  
  110. Setup: PROCEDURE
  111.    dt = '('translate(date(e),'.','/')')' time()
  112.  
  113.    SAY ';;;'
  114.    SAY ';;; $ver: Make-DISKS 1.6' dt
  115.    SAY ';;;'
  116.  
  117.    rc = Open('x', 'Make-Disks.start', 'r')
  118.    if ~rc THEN
  119.       DO
  120.          SAY "Can't open Make-Disks.start"
  121.       END
  122.  
  123.    DO WHILE ~EOF('x')
  124.       say readln('x')
  125.    END
  126.  
  127.    rc = Close('x')
  128.    RETURN
  129.